﻿Public Class XLBangCap
    Private kn As New KNBangCap
    Public Function BUS_LayDSBC() As DataTable
        Return kn.DSBC
    End Function
    Public Function BUS_SaveBC(ByVal data As DataTable) As Boolean
        Return kn.SaveBC(data)
    End Function
    Public Function BUS_ArrayBC() As ArrayList
        Dim ds As New ArrayList
        Dim d As New DTO_BangCap
        d.TenBC = "[Chọn Bằng Cấp]"
        ds.Add(d)
        Dim data As New DataTable
        data = kn.DSBC()
        For Each dr As DataRow In data.Rows
            d = New DTO_BangCap
            d.TenBC= dr("TenBC")
            ds.Add(d)
        Next
        Return ds
    End Function
End Class
